home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / +afcd_setup+ < prev    next >
AmigaDOS Script File  |  1997-11-21  |  3KB  |  134 lines
  1. .key DUMMY
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: +AFCD_Setup+ 2.2 (20.11.97)
  6. ; by Oliver Roberts
  7. ;
  8. ; Amiga Format CD Setup Script
  9.  
  10. ;***********
  11. ; CD number
  12. ;
  13. Set cdnum 22
  14.  
  15. ;*************************
  16. ; Useful global variables
  17. ;
  18. Set reqtitle "*"Amiga Format CD$cdnum*""
  19.  
  20. ;******
  21. ; Init
  22. ;
  23. FailAt 21
  24. Resident >NIL: :C/RequestChoice FORCE
  25.  
  26. ;*************************
  27. ; Check if booted from CD
  28. ;
  29. If exists env:Choices_Run
  30.    RequestChoice >NIL: $reqtitle "You don't need to run this script when you have*nbooted from the CD" OK
  31.    Skip END
  32. EndIf
  33.  
  34. ;***************************************************************************
  35. ; Check to see if this script has already been run and remove assigns if so
  36. ;
  37. If exists ENV:AFCD_Assigns
  38.    Set choice `RequestChoice $reqtitle "Removing the assigns to Amiga Format CD$cdnum" OK Cancel`
  39.    If $choice EQ 1
  40.       Delete >NIL: ENV:AFCD_Assigns
  41.       Assign C:     CD:C remove
  42.       Assign S:     CD:S remove
  43.       Assign Libs:  CD:Libs remove
  44.       Assign Fonts: CD:Fonts remove
  45.       Path CD:C remove
  46.       Assign CD: AFCD$cdnum: remove
  47.    EndIf
  48.    Skip END
  49. Endif
  50.  
  51. ;*************************
  52. ; Setup assigns and paths
  53. ;
  54.  
  55. ; Echo "Now setting up assigns for the Amiga Format CD$cdnum..."
  56.  
  57. SetENV AFCD_Assigns Yes!
  58. Assign CD: AFCD$cdnum: add
  59.  
  60. CD:c/AFCDView CD:s/disclaimer.iff >nil:
  61.  
  62. Assign C:     CD:C add
  63. Assign S:     CD:S add
  64. Assign Libs:  CD:Libs add
  65. Assign Fonts: CD:Fonts add
  66. Path CD:C add
  67.  
  68. ; Check AFCDPrefs settings and startup chosen programs
  69. Resident >NIL: CD:C/CheckAFCDPrefs PURE
  70.  
  71. CheckAFCDPrefs
  72. If ERROR
  73.    Set choice `RequestChoice $reqtitle "Would you like to run the AFCD preferences program?*n*nThis will allow you to preset your choices for this*nscript and your preferred file viewers." Yes No`
  74.    If $choice EQ 1
  75.       CD:Prefs/AFCDPrefs
  76.    EndIf
  77. EndIf
  78.  
  79. CheckAFCDPrefs FONTPREFS
  80. If ERROR
  81.    Set choice `RequestChoice $reqtitle "Would you like our font prefs run?*n*nThis will ensure that snapshotted icons look right*nand won't affect your permanent Workbench settings." Yes No`
  82.    If $choice EQ 1
  83.       sys:prefs/Font use CD:+Look_here_1st!+/Handy_Tools/FontPrefs
  84.    EndIf
  85. Else
  86.    CheckAFCDPrefs FONTPREFS
  87.    If WARN
  88.       sys:prefs/Font use CD:+Look_here_1st!+/Handy_Tools/FontPrefs
  89.    EndIf
  90. EndIf
  91.  
  92. CheckAFCDPrefs TOOLMAN
  93. If ERROR
  94.    Set choice `RequestChoice $reqtitle "Would you like to run ToolManager and ToolsDaemon?*n*nThey will give you added menus with some of the*nhighlights of AFCD$cdnum." Yes No`
  95.    If $choice EQ 1
  96.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/Toolmanager config cd:+Look_here_1st!+/Handy_Tools/tm.config
  97.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/toolsdaemon
  98.    EndIf
  99. Else
  100.    CheckAFCDPrefs TOOLMAN
  101.    If WARN
  102.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/Toolmanager config cd:+Look_here_1st!+/Handy_Tools/tm.config
  103.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/toolsdaemon
  104.    EndIf
  105. EndIf
  106.  
  107. CD:C/FoW newicon.library library
  108. If WARN
  109.    ; NewIcons not already running
  110.    CheckAFCDPrefs NEWICONS
  111.    If ERROR
  112.       Set choice `RequestChoice $reqtitle "Would you like to run NewIcons?*n*nThis will change the look of some of the icons on*nthe CD." Yes No`
  113.       If $choice EQ 1
  114.          run >nil: <nil: c:newicons
  115.       EndIf
  116.    Else
  117.       CheckAFCDPrefs NEWICONS
  118.       If WARN
  119.          run >nil: <nil: c:newicons
  120.       EndIf
  121.    EndIf
  122. EndIf
  123.  
  124. Resident >NIL: CheckAFCDPrefs REMOVE
  125.  
  126. EndIf
  127.  
  128. ;******
  129. ; Exit
  130. ;
  131. lab END
  132.  
  133. Resident >NIL: RequestChoice REMOVE
  134.